home *** CD-ROM | disk | FTP | other *** search
-
- #Left(5) == 'Hello'
- #Right(5) == 'orld!'
- #Mid(5) == ' world!'
- #Mid(5 2) == ' w'
- #Len() == 12
-
- {
- -start
- -stop
- -name string_basic_test
-
- # TEST STRING
- -action -set string="Hello world!"
-
- # BASICS
-
- # LEN
- -action -str Len result "%string%"
- -action -print Len() == %result%
-
- # ISEMPTY
- -action -str IsEmpty result "%string%"
- -action -print IsEmpty() == %result%
-
- # GETAT
- -action -str GetAt result "%string%" 2
- -action -print GetAt(2) == %result%
-
- # SETAT
- -action -str SetAt result "%string%" 2 X
- -action -print SetAt(2,X) == %result%
-
- # COMPARISON
-
- # COMPARE
- -action -str Compare result "1" "0"
- -action -print Compare(1,0) == %result%
-
- # COMPARE
- -action -str Compare result "1" "1"
- -action -print Compare(1,1) == %result%
-
- # COMPARE
- -action -str Compare result "0" "1"
- -action -print Compare(0,1) == %result%
-
- # COMPARE
- -action -str Compare result "X" "x"
- -action -print Compare(X,x) == %result%
-
- # COMPARE
- -action -str Compare result "X" "x" 1
- -action -print Compare(X,x,1) == %result%
-
- # EXTRACTION
-
- # LEFT
- -action -str left result "%string%" 5
- -action -print Left(5) == '%result%'
-
- # RIGHT
- -action -str Right result "%string%" 5
- -action -print Right(5) == '%result%'
-
- # MID
- -action -str Mid result "%string%" 5
- -action -print Mid(5) == '%result%'
-
- # MID
- -action -str Mid result "%string%" 5 2
- -action -print Mid(5,2) == '%result%'
-
- # SPANINCLUDING
- -action -str SpanIncluding result "%string%" "oleH"
- -action -print SpanIncluding(oleh) == '%result%'
-
- # SPANEXCLUDING
- -action -str SpanExcluding result "%string%" "dlroW"
- -action -print SpanExcluding(dlrow) == '%result%'
-
- # CONVERSIONS
-
- # MAKEUPPER
- -action -str MakeUpper result "%string%"
- -action -print MakeUpper() == '%result%'
-
- # MAKELOWER
- -action -str MakeLower result "%string%"
- -action -print MakeLower() == '%result%'
-
- # MAKEREVERSE
- -action -str MakeReverse result "%string%"
- -action -print MakeReverse() == '%result%'
-
- # REPLACE
- -action -str Replace result "%string%" "Hello" "Goodbye"
- -action -print Replace() == '%result%'
-
-
- # INSERT
- -action -str Insert result "%string%" 6 "cruel "
- -action -print Insert(6 "cruel ") == '%result%'
-
- # DELETE
- -action -str Delete result "%string%" 5 6
- -action -print Delete(5 6) == '%result%'
-
- # TRIMLEFT - no white space, so no change
- -action -str TrimLeft result "%string%"
- -action -print TrimLeft() == '%result%'
-
- # TRIMLEFT
- -action -str TrimLeft result "%string%" "Hello "
- -action -print TrimLeft(Hello ) == '%result%'
-
- # TRIMRIGHT
- -action -str TrimRight result "%string%" "!"
- -action -print TrimRight(!) == '%result%'
-
- # FIND
- -action -str Find result "%string%" "ell"
- -action -print Find(ell) == '%result%'
-
- # REVERSEFIND
- -action -str ReverseFind result "%string%" "o"
- -action -print ReverseFind(o) == '%result%'
-
- # FINDONEOF
- -action -str FindOneOf result "%string%" "o"
- -action -print FindOneOf(o) == '%result%'
-
- # FILE PATH FUNCTIONS
-
- # MAKEPATH
- -action -str MakePath result "C" "\foo\blat\snarf" "program" "exe"
- -action -print MakePath("C" "\foo\blat\snarf" "program" "exe") == '%result%'
-
- # SPLITPATH
- -action -str SplitPath "c:\foo\blat\snarf\program.exe" drive path fname ext
- -action -print SplitPath("c:\foo\blat\snarf\program.exe") == '%drive%' '%path%' '%fname%' '%ext%'
-
- # FULLPATH
- -action -str FullPath result "."
- -action -print FullPath(.) == '%result%'
- }
-
-